<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>162</cardCount>
<cardID>5336</cardID>
<listID>21910</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on Progress txtOrPctget txtOrPctconvert it to dateItems -- will only work if it is a numberif it is txtOrPct then put "2◊"&txtOrPct into txtOrPctelse put "3◊"&txtOrPct into txtOrPctget dContents("!Progress")if it <> 0 thenif txtOrPct is "2◊Dismiss"then dChanger it,"0◊Dismiss"else dChanger it, txtOrPctelseget Dialoger("!Progress","0◊Orphan",txtOrPct,"3◊Inactivate")end ifend Progressfunction ask2 Prompt1, Prompt2, Default1, Default2put return into CRif number of chars in Prompt1 < 30then put " "&¬" " before Prompt1-- The call to Dialoger - this is where the dialog gets displayedput Dialoger("!Ask2" ¬, Prompt1 & CR & Prompt2 ¬, Default1 ¬, Default2 ¬) into dResult-- Now we sort out what happenedif first word of dResult is "Error:" thenanswer dResult with Cancelexit to HyperCardelse if line 2 of dResult is not empty thenreturn emptyelsereturn (line 3 to 4 of dResult)end ifend ask2on foundHit dialog, itemHitglobal cdList, lastFindStr,lastChkboxif itemHit = 0 thendChanger dialog,"2◊select 1"else if itemHit = 2 thenget dContents(dialog,2)go line it of cdListif lastChkbox is truethen find whole lastFindStr in bg fld wisdomelse find lastFindStr in bg fld wisdomend ifend foundHitfunction Caution txt, pushBtn1, pushBtn2, pushBtn3return alert("Caution", txt, pushBtn1, pushBtn2, pushBtn3)end Cautionfunction Note txt, pushBtn1, pushBtn2, pushBtn3return alert("Note", txt, pushBtn1, pushBtn2, pushBtn3)end Notefunction Stop txt, pushBtn1, pushBtn2, pushBtn3return alert("Stop", txt, pushBtn1, pushBtn2, pushBtn3)end Stopfunction alert lvl, txt, pushBtn1, pushBtn2, pushBtn3put return into CRif lvl is "Stop" then put "6◊Hide"&CR&"7◊Hide" into iconHiderelse if lvl is "Caution" then put "5◊Hide"&CR&"7◊Hide" into iconHiderelse if lvl is "Note" then put "5◊Hide"&CR&"6◊Hide" into iconHiderelse exit alertget paramCount()if pushBtn1 is empty thenput Dialoger("!Alert"¬, "1◊hide"¬, "2◊"&pushBtn1 & return & "Default" & return & "OK"¬, "3◊hide"¬, "4◊"&txt¬, iconHider) into dResultelse if pushBtn2 is empty thenput Dialoger("!Alert"¬, "1◊hide"¬, "2◊"&pushBtn1 & return & "Default"¬, "3◊hide"¬, "4◊"&txt¬, iconHider) into dResultelse if pushBtn3 is empty thenput Dialoger("!Alert"¬, "1◊"&pushBtn1 ¬, "2◊"&pushBtn2 ¬, "3◊hide"¬, "4◊"&txt¬, iconHider) into dResultelseput Dialoger("!Alert"¬, "1◊"&pushBtn2 ¬, "2◊"&pushBtn3 ¬, "3◊"&pushBtn1 & return & "Default" & return & "Dismiss" ¬, "4◊"&txt¬, iconHider) into dResultend ifif first word of dResult is "Error:"then exit to HyperCardrepeat with i = 1 to 3get line i of dResultif it is not empty then return itend repeatend alerton idleget Dialoger()pass idleend idleon openStackglobal userLvlIn, stacksif stacks is empty then startup trueif item 4 of screenRect() <= 342 then hide menubarput the userLevel into userLvlInset userLevel to 5pass openStackend openStackon startUp sendAlongif sendAlong is true then pass startUpend startUpon closeStackglobal userLvlInset the userLevel to userLvlInrepeat foreverget dContents()if it is not 0 then dChanger it, "0◊dismiss"else exit repeatend repeatend closeStackon seqStampglobal seqNoif seqNo is empty then put 1000 into seqNoadd 1 to seqNoput seqNo into bg fld seqFldgo nextend seqStampon jb nget style of cd btn nif it is "shadow" or it is "Roundrect" thenset width of cd btn n to 100set height of cd btn n to 20set style of cd btn n to roundrectset left of cd btn n to 403else if it is "rectangle" thenset width of cd btn n to 100--set height of cd btn n to 20--set style of cd btn n to roundrectset left of cd btn n to 403end ifend jb</script>
